cond
start
100 *.eye5 sub 50 div .up store
407 .out4 store
407 .out3 store
*.nrg 5 div *.body sub .strbody store
*.body *.nrg 5 div sub .fdbody store
991 991 store
1216 .eye5width store
*.refxpos *.refypos angle *.veldx add .setaim store
50 .repro 5000 *.nrg sub sgn 1 sub sgn abs mult 100 *.totalmyspecies sub sgn 1 add sgn mult store
-6 .shoot *.eye5 40 sub sgn 1 add sgn *.in3 *.out3 sub sgn abs mult mult store
0 .fixpos *.fixpos sgn mult store
stop

cond
*.in3 *.out3 =
start
20 .dn store
stop

cond
*.vtimer 0 =
start
*.thisgene 1 add .mkvirus store
stop

cond
*991 991 !=
start
16 .shootval store
407 .out4 store
*.thisgene 1 rnd 2 mult 1 sub add .delgene store
.fixpos inc
1216 .eye5width store
*.refbody .shootval 30000 *.nrg sub sgn 1 sub sgn abs mult store
*.refxpos *.refypos angle *.refvel add .setaim store
*.in4 407 sub sgn abs 20 *.eye5 sub sgn 1 sub sgn abs mult -6 mult .shoot store
*.thisgene .mkvirus store
*.nrg 50 div .vshoot store
*.nrg 5 div *.body sub .strbody store
stop

cond
*.waste 50 >
start
*.waste .shootval store
-4 .shoot store
stop

cond
*.vtimer 1 =
start
*.nrg 10 div .vshoot store
stop